## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   year = col_double(),
##   democratic_senate_1 = col_double(),
##   republican_senate_1 = col_double(),
##   democratic_house_1 = col_double(),
##   republican_house_1 = col_double()
## )
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   pac_name = col_character(),
##   affiliate = col_character(),
##   total = col_double(),
##   dem = col_double(),
##   repub = col_double(),
##   lean = col_character(),
##   year = col_double()
## )
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   country = col_character(),
##   dems_sum = col_double(),
##   repubs_sum = col_double(),
##   total_sum = col_double(),
##   year = col_double()
## )
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   industry_name = col_character(),
##   total = col_double(),
##   dem = col_double(),
##   repub = col_double(),
##   year = col_double()
## )
## # A tibble: 1,542 x 7
##    industry_name            total     dem  repub  year dem_percent repub_percent
##    <chr>                    <dbl>   <dbl>  <dbl> <dbl>       <dbl>         <dbl>
##  1 Agribusiness            1.61e7 4987207 1.11e7  2000       0.309         0.691
##  2 Crop Production & Bas…  3.26e6 1558472 1.70e6  2000       0.478         0.522
##  3 Tobacco                 2.38e6  628638 1.75e6  2000       0.264         0.736
##  4 Dairy                   1.34e6  544915 7.90e5  2000       0.408         0.592
##  5 Poultry & Eggs          4.60e5  168335 2.92e5  2000       0.366         0.634
##  6 Livestock               7.66e5  189728 5.76e5  2000       0.248         0.752
##  7 Agricultural Services…  3.06e6 1099991 1.96e6  2000       0.359         0.641
##  8 Food Processing & Sal…  2.71e6  434278 2.28e6  2000       0.160         0.840
##  9 Forestry & Forest Pro…  2.13e6  356408 1.78e6  2000       0.167         0.833
## 10 Sugar cane & sugar be…  1.59e6  873458 7.18e5  2000       0.549         0.451
## # … with 1,532 more rows

Use Pearson Correlation to Compare Each PAC Kind to House Senate

Leadership PACs

House of Representatives

## [1] "Correlation Between Leadership PAC Donations by Party and House of Representatives Party Distribution is 0.56999 with p-value 0.06714"

Senate

## [1] "Correlation Between Leadership PAC Donations by Party and Senate Party Distribution is 0.43697 with p-value 0.17899"

Foreign PACs

House of Representatives

## [1] "Correlation Between Foreign PAC Donations by Party and House of Representatives Party Distribution is 0.73864 with p-value 0.00942"

Senate

## [1] "Correlation Between Foreign PAC Donations by Party and Senate Party Distribution is 0.64736 with p-value 0.03129"

PACs by Industry

Create a tibble with the correlation, ttest, p-value, CI data for each different industry

House of Representatives

## Warning: Ignoring unknown aesthetics: text

Senate

## Warning: Ignoring unknown aesthetics: text